home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Hyperj-Hz / HyperMac™1.2.cpt / Home / card_4907.txt < prev    next >
Text File  |  1987-11-27  |  5KB  |  242 lines
  1. -- card: 4907 from stack: in
  2. -- bmap block id: 4498
  3. -- flags: 4000
  4. -- background id: 4179
  5. -- name: User Preferences
  6. ----- HyperTalk script -----
  7. on openCard
  8.   put the long date into card field "loc date"
  9.   setUserLevel the userLevel
  10. end openCard
  11.  
  12. on idle
  13.   put the time into card field "Time"
  14.   pass idle
  15. end idle
  16.  
  17.  
  18. on setUserLevel whatLevel
  19.   set userLevel to whatLevel
  20.   if the userLevel is whatLevel then
  21.     put the userLevel into card field "User Level"
  22.     set hilite of button "Browsing" to the userLevel = 1
  23.     set hilite of button "Typing" to the userLevel = 2
  24.     set hilite of button "Painting" to the userLevel = 3
  25.     set hilite of button "Authoring" to the userLevel = 4
  26.     set hilite of button "Scripting" to the userLevel = 5
  27.     set visible of button "Power Keys" to the userLevel >= 3
  28.     set visible of button "Blind Typing" to the userLevel = 5
  29.     set hilite of button "Power Keys" to the powerKeys
  30.     set hilite of button "Blind Typing" to the blindTyping
  31.   else
  32.     set hilite of the target to false
  33.   end if
  34. end setUserLevel
  35.  
  36.  
  37.  
  38. -- part 1 (button)
  39. -- low flags: 00
  40. -- high flags: A003
  41. -- rect: left=379 top=63 right=86 bottom=512
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 1
  45. -- font id: 0
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: Browsing
  50. ----- HyperTalk script -----
  51. on mouseUp
  52.   setUserLevel 1
  53. end mouseUp
  54.  
  55.  
  56.  
  57. -- part 2 (button)
  58. -- low flags: 00
  59. -- high flags: A003
  60. -- rect: left=379 top=117 right=142 bottom=512
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 1
  64. -- font id: 0
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: Painting
  69. ----- HyperTalk script -----
  70. on mouseUp
  71.   setUserLevel 3
  72. end mouseUp
  73.  
  74.  
  75.  
  76. -- part 3 (button)
  77. -- low flags: 00
  78. -- high flags: A003
  79. -- rect: left=379 top=145 right=169 bottom=512
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: Authoring
  88. ----- HyperTalk script -----
  89. on mouseUp
  90.   setUserLevel 4
  91. end mouseUp
  92.  
  93.  
  94.  
  95. -- part 4 (button)
  96. -- low flags: 00
  97. -- high flags: E003
  98. -- rect: left=379 top=172 right=197 bottom=512
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 1
  102. -- font id: 0
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: Scripting
  107. ----- HyperTalk script -----
  108. on mouseUp
  109.   setUserLevel 5
  110. end mouseUp
  111.  
  112.  
  113.  
  114. -- part 5 (button)
  115. -- low flags: 00
  116. -- high flags: A003
  117. -- rect: left=395 top=225 right=246 bottom=494
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 1
  121. -- font id: 0
  122. -- text size: 12
  123. -- style flags: 0
  124. -- line height: 16
  125. -- part name: Power Keys
  126. ----- HyperTalk script -----
  127. on mouseUp
  128.   set powerKeys to the hilite of button "Power Keys"
  129. end mouseUp
  130.  
  131.  
  132.  
  133. -- part 8 (button)
  134. -- low flags: 00
  135. -- high flags: A003
  136. -- rect: left=378 top=88 right=114 bottom=512
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 0 / 0
  139. -- text alignment: 1
  140. -- font id: 0
  141. -- text size: 12
  142. -- style flags: 0
  143. -- line height: 16
  144. -- part name: Typing
  145. ----- HyperTalk script -----
  146. on mouseUp
  147.   setUserLevel 2
  148. end mouseUp
  149.  
  150.  
  151.  
  152. -- part 9 (field)
  153. -- low flags: 81
  154. -- high flags: 0000
  155. -- rect: left=173 top=125 right=144 bottom=198
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 0 / 0
  158. -- text alignment: 0
  159. -- font id: 3
  160. -- text size: 12
  161. -- style flags: 0
  162. -- line height: 16
  163. -- part name: User Level
  164.  
  165.  
  166. -- part 13 (button)
  167. -- low flags: 00
  168. -- high flags: A003
  169. -- rect: left=396 top=248 right=272 bottom=494
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 0 / 0
  172. -- text alignment: 1
  173. -- font id: 0
  174. -- text size: 12
  175. -- style flags: 0
  176. -- line height: 16
  177. -- part name: Blind Typing
  178. ----- HyperTalk script -----
  179. on mouseUp
  180.   set blindTyping to the hilite of button "Blind Typing"
  181. end mouseUp
  182.  
  183.  
  184.  
  185. -- part 16 (field)
  186. -- low flags: 01
  187. -- high flags: 0000
  188. -- rect: left=48 top=302 right=318 bottom=281
  189. -- title width / last selected line: 0
  190. -- icon id / first selected line: 0 / 0
  191. -- text alignment: 1
  192. -- font id: 2
  193. -- text size: 12
  194. -- style flags: 0
  195. -- line height: 16
  196. -- part name: loc date
  197.  
  198.  
  199. -- part 17 (field)
  200. -- low flags: 01
  201. -- high flags: 0000
  202. -- rect: left=127 top=318 right=334 bottom=197
  203. -- title width / last selected line: 0
  204. -- icon id / first selected line: 0 / 0
  205. -- text alignment: 1
  206. -- font id: 2
  207. -- text size: 12
  208. -- style flags: 0
  209. -- line height: 16
  210. -- part name: Time
  211.  
  212.  
  213. -- part 24 (button)
  214. -- low flags: 00
  215. -- high flags: 0000
  216. -- rect: left=430 top=281 right=309 bottom=460
  217. -- title width / last selected line: 0
  218. -- icon id / first selected line: 32462 / 32462
  219. -- text alignment: 1
  220. -- font id: 0
  221. -- text size: 12
  222. -- style flags: 0
  223. -- line height: 16
  224. -- part name: help
  225. ----- HyperTalk script -----
  226. on mouseUp
  227.   go to stack "Help"
  228. end mouseUp
  229.  
  230.  
  231.  
  232. -- part contents for card part 9
  233. ----- text -----
  234. 5
  235.  
  236. -- part contents for card part 17
  237. ----- text -----
  238. 21:36
  239.  
  240. -- part contents for card part 16
  241. ----- text -----
  242. Friday, November 27, 1987